(call_debugger): Bind `inhibit-redisplay' to nil, and

bind inhibit-eval-during-redisplay' to t.

diff --git a/src/eval.c b/src/eval.c
index 439d7c5ccc2422268f87140ded8c96d1e309349e..f7dd17eb5eae9cfcd40377c5c87f43e346587ff7 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -254,6 +254,8 @@ call_debugger (arg)
   redisplaying_p = 0;
   specbind (intern ("debugger-may-continue"),
            debug_while_redisplaying ? Qnil : Qt);
+  specbind (Qinhibit_redisplay, Qnil);
+  specbind (Qinhibit_eval_during_redisplay, Qt);
   
   val = apply1 (Vdebugger, arg);